EinhugurWord.Drawing Class

using EinhugurWord

var ft as FileType = new FileType
ft.Extensions = "docx"
ft.Name = "Word Document"

var f as FolderItem = FolderItem.ShowSaveFileDialog(ft, "New document.docx")

if f <> nil then
    try
       var doc as Document = Document.Create(f)
      
       doc.Creator = "Einhugur test user"
       doc.LastModifiedBy = "Einhugur test user"
       doc.Subject = "My first"
      
       // Empty document has one paragraph so we just populate the first one instead of adding
       call doc.Paragraph(0).AppendRun("Hello world ! This is my first paragraph. Bellow we will add Xojo Picture")
      
       // Create some Xojo Picture object
       var pic as Picture = new Picture(450,450)
       var g as Graphics = pic.Graphics
      
       g.DrawingColor = &C800000
       g.FillRectangle(1,1, 200, 200)
      
       g.DrawingColor = &C0000FF
       g.FillRectangle(150,150, 200, 200)
      
       var exporter as RawPngExporter = new RawPngExporter()
       var imageData as String = exporter.SaveToString(RawBitmapConverter.FromPicture(pic))
      
       call doc.AppendParagraph(imageData, EinhugurWord.PictureTypes.png, "My image from Xojo", pic.Width, pic.Height)
      
       doc.Save()
      
    catch e as WordException
    MessageBox e.Message
end try
end if